with strings;
with Communautes.Test_Class;
with communautes_strings;

procedure communautes_strings_test_class is new communautes_strings.Test_Class(creerIndividu => strings.creerIndividu,
                                                         creerCercle => strings.creerCercle,
                                                         creerTexte => strings.creerTexte,
                                                         image_individu => strings.image_individu,
                                                         image_cercle => strings.image_cercle,
                                                         image_texte => strings.image_texte);
